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; FACILITY: MATH LIBRARY 
++ 
ABSTRACT: 


This module contains all of the one or two instruction type 
conversion routines. 


; VERSION: 1 
; HISTORY: 
; AUTHOR: 


Jonathan M. Taylor, 14-JUL-77: Version 0 


; MODIFIED BY: 
Steven B. Lionel, 26-Jan-79: G, H and COMPLEX*16 
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for imaginary part. JAW 27-Jan-1981 
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-SBTTL DECLARATIONS 
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INCLUDE FILES: 
; NONE 


: EXTERNAL SYMBOLS: 
NONE 


: MACROS: 
: NONE 
t PSECT DECLARATIONS: 
.PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 


: EQUATED SYMBOLS: 
NONE 


> OWN STORAGE: 
3 NONE 
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; FUNCTIONAL DESCRIPTION: 
: Convert INTEGER*2 to REAL*8 (exact). 


; CALLING SEQUENCE: 
: Float.wd.v = MTHSDFLOTI (arg.rw.r) 


; INPUT PARAMETERS: 
; The input parameter is a one-word value and is call-by-reference. 


; IMPLICIT INPUTS: 

; NONE 

; OUTPUT PARAMETERS: 
NONE 

; IMPLICIT OUTPUTS: 

; NONE 

; COMPLETION CODES: 

; NONE 


; SIDE EFFECTS: 
NONE 
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ENTRY MTHSOFLOTI, “M<> 
ser @4(AP), RO 3 convert INTEGER*2 to REAL*8 
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* FUNCTIONAL DESCRIPTION 
Convert INTEGER Red to REAL*8 (exact). 


CALLING SEQUENCE: 
Float.wd.v = MTHSDFLOTJ (arg.rl.r) 


INPUT PARAMETERS: 
The one input parameter is a longword value and is 
call-by-reference. 
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of 128 IMPLICIT INPUTS: 
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8 07 136 OUTPUT PARAMETERS: 
ee 
0007 155 ; IMPLICIT OUTPUTS: 
a aia 
$007 138 COMPLETION CODES: 
ee ce 
0007 161 ; SIDE EFFECTS: 
0007 196 NONE 
0007 16 
0007 164 :-- 
ss 
0007 189 -ENTRY MTHSDFLOTJ, “M<> 
50 04 6C 6€ 0009 £168 CVTLD a@4(AP), RO 3 convert INTEGER*4 to REAL*8 

000D 169 RET 
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ir 
: FUNCTIONAL DESCRIPTION: 
Convert REAL®4 to INTEGER*2 (truncated). 


CALLING SEQUENCE: 
Truncation.ww.v anelifinns 


NT (arg.rf.r) 
Integer.ww.v = f.r) 


I 
X (arg.r 


INPUT PARAMETERS: 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Integer Overflow and Reserved Operand exceptions can occur. 


MTHSIINT: 
x “M<IV> ; enable integer overflow 
rb : convert REAL*4 to INTEGER*2 


- 


N 7 
wnt oes th THREE HAD RE ESR ABS ass 0% chy] | 


~SBTTL MTHSJINT, MTHSJIFIX 


sb ONVER EYpS 


@ 
z> 
Mw 
x=, 
RO 
a | 
oa 
~~" 
men 
=x 


:* FUNCTIONAL DESCRIPTION: 
Convert REAL*4 ta INTEGER*®4 (truncated). 


; CALLING SEQUENCE : 
Truncation.wl.v = MTHSJINT (arg.rf.r) 
Integer.wl.v = MT WSJ TFIX (arg. rf.r) 


INPUT PARAMETERS: 
The one input parameter is a single-precision floating-point 
value and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand and Integer Overflow exceptions can occur. 
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TRY MTHSJIFIX “M<IV> ; enable integer overflow 
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a4(AP), RO : convert REAL*4 to INTEGER®4 
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+4 
FUNCTIONAL DESCRIPTION: 
Convert REAL*8 to INTEGER*2 (truncated). 


CALLING SEQUENCE: 
Truncation.ww.v = MTHSIIDINT (arg.rd.r) 


INPUT PARAMETERS: 
The one input parameter is a double-precision floating-point 
value and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT QUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand and Integer Overflow exceptions can occur. 
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cyTDw a4(AP), RO : REAL*8 to INTEGER® 
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; FUNCTIONAL DESCRIPTION: 
Convert REAL*8 to INTEGER*4 (truncated). 


; CALLING SEQUENCE: 
: Truncation.wl.v = MTHSJIDINT (arg.rd.r) 
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The one soput parameter is double-precision floating-point value 
and is call- 


by-reference. 
; OUTPUT PARAMETERS: 

; NONE 

; IMPLICIT OUTPUTS: 

; NONE 

; COMPLETION CODES: 

3 NONE 


; SIDE EFFECTS: 


: IMPLICIT INPUTS: 
: NONE 
: Reserved Operand and Integer Overflow exceptions can occur. 
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4000 -ENTRY MTHSJIDINT, “M<IV> ; enable seteger overflow 
50 04 BC 6A 3 CVTDL a4(AP), RO ; REAL®8 to INTEGER® 
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~SBTTL MTHSREAL 


+ 
FUNCTIONAL DESCRIPTION: 
Return the REAL part of the COMPLEX argument. 


CALLINS SEQUENCE: 
Real_part. wfev = MTHSREAL (complex_arg.rfc.r) 


A 3 
A 4 
A 88g 5 
A 
p A 5 3 
A 40 ; 
. A 41 ; 
A tg 3 
O2A 43 ; 
8 A 44 ; 
A 45 ; INPUT PARAMETERS: 
; : 2$ 3 The one argument is a COMPLEX*8 number and is cail-by-reference. 
$0 4 48 ; 
8 A 49 ; IMPLICIT INPUTS: 
02A 50 ; NONE 
8 A 51; 
O2A 26 3; OUTPUT PARAMETERS: 
002A 22 3 NONE 
002A 54; 
002A 55 ; IMPLICIT OUTPUTS: 
Q02A 2$ 3 NONE 
002A of 8 
002A 58 ; COMPLETION CODES: 
002A 59 ; NONE 
002A 60 ; 
002A 61 ; SIDE EFFECTS: 
002A 6¢ : Reserved Operand exception can occur. 
002A 63 ; 
002A 64 ; 
O2A 65 ;-- 
; A 66 
A 67 
0000 002A 68 "i MTHSREAL, “M<> 
50 04 BC ay 83 f 393 MOVF @4(AP), RO ; get Ist half of COMPLEX number 
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] if ~SBTTL MTHSAIMAG 
1 74 5 ++ 
1 75 ; FUNCTIONAL DESCRIPTION: 
1 6 3 Returns the IMAGINARY part of a COMPLEX*8 argument. 
mt 
1 oS : CALLING SEQUENCE: 
8 ! , 3 Imaginary_part.wf.v = MTHSAIMAG (complex_arg.rfc.r) 
86 
0 1 4 : INPUT PARAMETERS: 
09 } if 3 The one argument is a COMPLEX*8 value and is call-by-reference. 
031 : 
0031 Hh 3 IMPLICIT INPUTS: 
09 : + ; NONE 
031 391 : OUTPUT PARAMETERS: 
0031 398; — 
0031 34 : IMPLICIT, QUTPUTS: 
0031 396: 
itt 39 3; COMPLETION CODES: 
B® pea 
0031 400 : SIDE EFFECTS: 
0031 401 ; Reserved Operand exception can occur. 
0031 one ; 
031 403; 
031 404 ;-- 
gts 
$031 407 -ENTRY MTHSAIMAG, “M<> 
Boas 408 MOVL 4(AP), RO ; RO -> COMPLEX number 
Oat re ye 4(RO), RO ; RO = imaginary part of COMPLEX number 
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C t1§ ~SBTTL MTHSCMPLX 
24g :44 
C 415 ; FUNCTIONAL DESCRIPTION: 
C £18 3 Return a COMPLEX*8 number from two single-precision 
C 417; floating-point values. 
at 
C 420 : CALLING SEQUENCE: 
C 421; Complex_from_two_reals.wfc.v = MTHSCMPLX 
0 : : § 3 (real_part.rf.r, imaginary_part.rf.r) 
sae 
O3C 4 5 : INPUT PARAMETERS: 
O3C 427; The two input parameters are single-precision floating-point 
0O3C 4 3 ; values and are call-by-reference. 
bose 480 
O3¢ 431 : IMPLICIT INPUTS: 
o3¢ ? ; 3 NONE 
003C 434 ; OUTPUT PARAMETERS: 
Bet tccse 
003C 4 $ : IMPLICIT OUTPUTS: 
OO3e 439; a 
003C 440 ; COMPLETION CODES: 
003¢ ret 5 NONE 
Os aes ; SIDE EFFECTS: 
003C 444 ; Reserved Operand exception can occur. 
003C 445; 
03C 123 : 
03C 447 ;-- 
O3¢ 228 
0000 6 C 450 eENTRY MTHSCMPLX “M<> 
50 04 86C 50 00 3 451 MOVF a4(AP), RO ; real part = 1st arg 
51 08 BC 50 004 $3¢ MOVF @8(AP), R1 ; imag part = 2nd arg 
04 0046 45 RET 
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+¢ 
FUNCTIONAL DESCRIPTION: 
Convert REAL*4 to REAL*8 (exact). 


CALLING SEQUENCE: 
3 Conversion.wd.v = MTHS$DBLE (arg.rf.r) 
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0 ; 
; 
4; 
28 
5 ; INPUT PARAMETERS: ; 
8; The one parameter is a single-precision fl 
y 3 and is call-by-reference. 
0 ° 3 
8 § ; IMPLICIT INPUTS: 
: NONE 
004 4; 
Boe 5 ; OUTPUT PARAMETERS: 
04 § 3 NONE 
004 3 
004 8 ; IMPLICIT OUTPUTS: 
004 9; NONE 
004 480 ; 
004 $B 3; COMPLETION CODES: 
004 4 ¢ 3 NONE 
04 $3 3 
047 484 ; SIDE EFFECTS: 
047 485; Reserved Operand exception can occur. 
0047 486 ; 
047 487 ; 
047 488 ;-- 
047 489 
047 490 
0000 Oheg 491 eENTRY MTHSDBLE, “M<> 
56 oe} 138 CVTFD @4(AP), RO 3; REAL*4 to REAL*8 in RO/R1 
04 004D 49 RET 
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COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand and Floating Overflow exceptions can occur. 


NTRY MTHSSNGL aM<> 
TDF a4(AP), RO ; REAL*8 to REAL*4 in RO 
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rt 495 -SBTTL MTHSSNGL 
Pf: 299 ;+4 
4E 498 : FUNCTIONAL DESCRIPTION: 
rt 506 3 Convert REAL*8 to REAL*4 (rounded) 
4E ; 
4E § 3; CALLING SEQUENCE: 
rt Z ; Conversion.wf.v = MTHS$SNGL (arg.rd.r) 
Me 5; 
Ogee 5 : INPUT PARAMETERS: 
04E 8; The one parameter is a double-precision floating-point value 
O9ce 44 5 and is call-by-reference. 
O6E 511: 
8 E \¢ 3 IMPLICIT INPUTS: 
OOcE 81a: _— 
— 515 : OUTPUT PARAMETERS: 
thes 
E 218 : IMPLICIT OUTPUTS: 
—E 519; NONE 
: 5 ’ 3 
E ; 
E 5; 
E ; : 
E 3 : 
mi 
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* FUNCTIONAL DESCRIPTION: 
Convert G REAL*8 to REAL*4 (rounced) 


CALLING SEQUENCE: 
Conversion.wf.v = MTHSSNGLG (arg.rg.r) 


INPUT PARAMETERS: 
The one parameter is a G floating-point value 
and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


; IMPLICIT OUTPUTS: 
NONE 


; COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand and Floating Overflow exceptions can occur. 
Floating Underflow can occur. 


JENTRY MTHSSNGLG “M<> 
CVIGE a4(AP), RO : G REAL*8 to REAL*4 in RO 
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{FUNCTIONAL DESCR fet 
Convert INT Red to REAL*4 (exact). 


; CALLING SEQUENCE : 
Float.wf.v = MTHSFLOATI (arg.rw.r) 


INPUT PARAMETERS: 
The one parameter is a one-word value and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 
af MTHSFLOATI, “M<> 


-ENT 
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FUNCTIONAL DESCRIPTION: 
Convert INTEGER*4 to REAL*4 (rounded). 


CALLING SEQUENCE: 
Float.wf.v = MTHSFLOATJ (arg.rl.r) 


INPUT PARAMETERS: 
The one parameter is a longword value and is call-by-reference. 
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IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 
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IMPLICIT OUTPUTS: 
NONE 
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COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 
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ENTRY MTHSFLOATJ, “M<> 
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50 04 BC of 066 VILE a4(AP), RO- ; INTEGER®4 to REAL*4 in RO 
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3 FUNCTIONAL DESCRIPTION: 
Convert INTEGER*2 to G REAL*8 (exact). 


CALI SEQUENCE: 
Float.wg.v = MTHSGFLOTI (arg.rw.r) 


INPUT PARAMETERS: 
The input parameter is a one-word value and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 

; SIDE EFFECTS: 

NONE 
ENTRY MTHS$GFLOTI, “M<> 


sive a4(AP), RO 3 convert INTEGER*2 to G REAL*8 
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ae -SBTTL MTHSGFLOTJ 
‘] 
Be * FUNCTIONAL DESCRIPTION: 
Convert INTEGER*4 to G REAL*8 (exact). 


: ; CALLING SEQUENCE: 
Float.wg.v = MTHSGFLOTJ (arg.rl.r) 


; INPUT PARAMETERS: 
; The one input parameter is a longword value and is 
call-by-reference. 


: IMPLICIT INPUTS: 

: NONE 

: OUTPUT PARAMETERS: 
; NONE 

: IMPLICIT OUTPUTS: 
: NONE 

: COMPLETION CODES: 
; NONE 

: SIDE EFFECTS: 

: NONE 


-ENTRY MTHSGFLOTJ, aM<> 
CVILG a4(AP), RO’ 3; convert INTEGER*4 to G REAL*8 
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ty -SBTTL MTHSIIGINT 


"FUNCTIONAL DESCRIPTION: 
onvert G REAL*8 to INTEGER*2 (truncated). 


CALLING SEQUENCE: 
Truncation.ww.v = MTHSIIGINT (arg.rg.r) 


SANNA 
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INPUT PARAMETERS: 
The one input parameter is a G floating-point 
value and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 


Ooo 
I~ 
oo 
SNS ee 


PUSV SUSU BS EE EEE 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE ESFECTS: 
Reserved Operand and Integer Overflow exceptions can occur. 
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0 
4000 0078 766 ENTRY MTHS 
50 04 BC 49FD 007D 767 CVTGW =a4(A 
04 0082 RET 


LIGINT, “M<IV> ; enable soteger over flow 
P), RO 3; G REAL*8 to INTEGER*2 
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go4 
3 FUNCTIONAL DESCRIPTION: 
Convert G REAL*8 to INTEGER*4 (truncated). 


CALLING SEQUENCE: 
Truncation.wl.v = MTHSJIGINT (arg.rg.r) 


INPUT PARAMETERS: 
The one input parameter is G floating-point value 
and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 
; OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 
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79 COMPLETION CODES: 
79 NONE 

08 798 

oes 799 SIDE EFFECTS: 

8 800 

083 801 

083 fi 

08 03 ;-- 

OBS BOS 

4000 008 06 ENTRY BINS IIGINT . eR ; enable integer overflow 
50 04 BC 4AFD 08 807 CVIGL a4(AP), RO G REAL*8 to INTEGER*®4 
04 008A 808 RET 


Reserved Operand and Integer Overflow exceptions can occur. 


mapeomve RE 


a 


OOOOOOCGCOOCOCOOCOCOCSO tO 


Oooooo 


OOOOOCoocosoo 


SoQooooo 
SODDD oOo OoD 


SO ne 
Soom 


Sooooooocoo 


4000 
50 8604 BC 69FD 
04 


oO 
mo 


NAVE WIN (OO OONAU LS AO OONOU SWRI OOONOUS WR Oo 


¢ 9 
rsions (FLOAT, FIX, INT) y= 


tht 9 OF] 1:88 AX/VMS Macro V04-00 
P-1984 11:21: MTHRTL.SR 
-SBTTL MTHSIIHINT 
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FUNCTIONAL DESCRIPTION: 
Convert REAL*16 to INTEGER*2 (truncated). 


CALLING SEQUENCE: 
Truncation.ww.v = MTHSIIHINT (arg.rh.r) 


INPUT PARAMETERS: 
The one input parameter is a H floating 
value and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT QUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand and Integer Overflow exceptions can occur. 


-ENTRY MTHSIIHINT, “M<IV> ; enable integer overflow 
svi @4(AP), RO #2 


I 1 
P ; REAL*16 to INTEGER 
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MTHSCONVER t 
1-004 mths HCONVER.MAR; 1 


~SBTTL MTHSJIHINT 


{FUNCTIONAL DESCRIPTION: 
Convert REAL*16 to INTEGER*4 (truncated). 


CALLING SEQUENCE: 
Truncation.wl.v = MTHSJIHINT (ara.rh.r) 


The one input parameter is H_floating 
and is cal 


“-by-reference. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
; IMPLICIT OUTPUTS: 
NONE 
; COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand and Integer Overflow exceptions can occur. 


eENTRY MTHSJIHINT, “M<IV> ; enable integer overflow 
CVTHL a4(AP), RO ; REAL*16 to INTEGER®4 
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INPUT PARAMETERS: 
4000 
50 04 BC 6AFD 
04 
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EAL - MTHRTL SRE SATHCONVER.MAR: 1 
98 9 »SBTTL MTHSDREAL 
38 Bot 
36 
3 3¢ : Return the REAL*8 part of the COMPLEX*16 argument. 
98 96 ; 
98 97 ; CALLING SEQUENCE: 

4 4 ; Real_part.wd.v = MTHSDREAL (complex_arg.rdc.r) 
98 00 ; 
9B 88) 3 
98 § 3; INPUT PARAMETERS: 
44 4 $ The one argument is a COMPLEX*16 number and is call-by-reference. 
098 905; 

098 308 3 IMPLICIT INPUTS: 

098 907 ; NONE 

0098 908 ;: 

0098 909 ; OUTPUT PARAMETERS: 

0098 910; NONE 

0098 911; 

0098 aig 3; IMPLICIT OUTPUTS: 

0098 «= «913; NONE 

0098 =914; 

0098 915 ; COMPLETION CODES: 

0098 318 ; NONE 

0098 917; 

0098 918 ; SIDE EFFECTS: 

0098 919; Reserved Operand exception can occur. 

0098 920; 

009B 921; 

009B. C9 ¢ ;-- 

009B 9 

009B 4924 

0000 009B 925 -ENTRY MTHSDREAL “M<> 
50 04 B8C 70 O009D 926 MOVD a4(AaP), RO ; get Ist half of COMPLEX*16 number 
04 OOA1 927 RET 


i FUNCTIONAL DESCRIPTION: 
} 
| 
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04 O0A9 
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FUNCTIONAL DESCRIPTION: 
Return the G REAL*8 part of the G COMPLEX*16 argument. 


CALLING SEQUENCE: 
Real_part.wg.v = MTHSGREAL (complex_arg.rgc.r) 


INPUT PARAMETERS: 
The one argument is a G COMPLEX*16 number and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand exception can occur. 


ENTRY MTHSGREAL aM<> 
Hove , RO ; get Ist half of G COMPLEX*16 number 
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AA 8 -SBTTL MTHSDIMAG 
AA ;++ 
AA 971 : FUNCTIONAL DESCRIPTION: 
AA 72: Returns the IMAGINARY part of a COMPLEX*16 argument. 
MA One | 
AA 975 : CALLING SEQUENCE: 
e 3f8 ; Imaginary _part.wd.v = MTHSDIMAG (complex_arg.rdc.r) 
MA te 
AA 3 0 : INPUT PARAMETERS: 
OQAA 981 ; The one argument is a COMPLEX*16 value and is call-by-reference. 
ue 
BAA 984 : IMPLICIT INPUTS: 
QOAR 2 $3 NONE 
OAA 9 : : OUTPUT PARAMETERS: 
298: ] at 
OAA 990 : IMPLICIT OUTPUTS: 
9 33) : NONE 
OOAA 398 : COMPLETION CODES: 
OOAA 998 coe 
OOAA 996 > SIDE EFFECTS: 
QOAA 997; Reserved Operand exception can occur. 
OOAA 998; 
OAA 999 ; 
AA 1000 ;-- 
AA 1002 
50 04 AC 0008 OAC 1998 ion BRED AAG - me RO => COMPLEX*16 number 
: - rv 
50 08 aA0 70 $085 1005 MOVD 8(RO), RO ; RO = imaginary part of COMPLEX*16 number 
04 00B4 1006 RET 


H 9 
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oe 
FUNCTIONAL DESCRIPTION: 
Returns the IMAGINARY part of a G COMPLEX*16 argument. 


p -SBTTL MTHSGIMAG 


CALLING SEQUENCE: 
Imaginary_part.wg.v = MTHSGIMAG (complex_arg.rgc.r) 


3 


INPUT PARAMETERS: 
The one argument is a G COMPLEX*16 value and is call-by-reference. 


a me ee ed nd ed ed dd +S ed dd dd = dd 


i 
‘ 
4 IMPLICIT INPUTS: 
5 NONE 
§ OUTPUT PARAMETERS: 
8 NONE 
00B5 9 
0085 0 IMPLICIT OUTPUTS: 
00B5 1 NONE 
0085 § 
0B5 COMPLETION CODES: 
085 4 NONE 
0B5 1035 
0B5 § SIDE EFFECTS: 
p82 Reserved Operand exception can occur. 
6088 039 
085 40 ;-- 
0B 41 
0B ¢g 
0000 008 04 ENTRY MTHSGIMAG, “M<> 
50 04 AC dO 6008 4 MOVL 4(AP), RO 3; RO => COMPLEX*16 number 
50 08 AO SOFD ‘va 45 MOVG 8(RO), RO ; RO = imaginary part of COMPLEX*16 number 
04 oc 46 RET 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand exception can occur. 
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1-004 mY RSDEMPLX or8Epa19b4 1521547 EMTANTE SReTRTHICONGER.maR:1 2% (38) 
c1 4 ry -SBTTL MTHSDCMPLX 
HTB au 
C1 1 : FUNCTIONAL DESCRIPTION: 
—. § Return a COMPLEX*16 number from two double-precision 
ci 4 3 floating-point values. 
BE 
3 : 3 CALLING SEQUENCE: 
3 : 38 ; dcemplex.wdc.v = MTHSDCMPLX (real_part.rd.r, imag_part.rd.r) 
Bet 1389 hed 
$3 ! $3 ; CALL MTHSDCMPLX (dcmplex.wdc.r, real_part.rd.r, imag_part.rd.r) 
0C1 1064 : Because a COMPLEX*16 result cannot be expressed in 64 bits, it 
$2 1065 ; is returned as the first argument, with the input parameter 
1 26 : displaced to the second argument, in accordance with the 
38 } : Procedure Calling Standard. 
90 1 $3 : INPUT PARAMETERS: 
0 1070 ; The two input parameters are double-precision floating-point 
09 } re 3 values and are call-by-reference. 
0C1 1073: 
: 1074 ; IMPLICIT INPUTS: 
3 ta 3 NONE 
oc1 1 $ : OUTPUT PARAMETERS: 
00 | 8 3 NONE 
09 1080 ; IMPLICIT OUTPUTS: 
0 1081 ; NONE 
1 § 3 
1 3 
1084 ; 
! 2% 
1 $ ; 
1088 ; 
105 
135 
1098 
1094 
: 5 
1097 
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-ENTRY WTHSOCHPLX, “M<> 
50 04 AC 8 MOVL 4(AP), R ; RO -> COMPLEX*16 result 
60 8 BC MOVD aB(aP§, (RO) 3; real part = gnd arg 
08 AO OC BC r0 9 novo @i2(APS, 8(RO) ; imag part = 3rd arg 
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9 ~SBTTL MTHSGCMPLX 


as 
FUNCTIONAL DESCRIPTION: 
Return a G nape pa number from two G 


PL 
D1 1 
D1 1 
D1 1101; 
aE 
D1 1104: - , 
o 1 ¢ floating-point values 
3 1 5 3 CALLING SEQUENCE: 
4} 1108 3 gcmplex.wgc.v = MTHSGCMPLX (real_part.rg.r, imag_part.rg.r) 
aE - 
+o 1118 3 CALL MTHSGCMPLX (gcmplex.wgc.r, real_part.rg.r, imag_part.rg.r) 
0D1 1115: Because a COMPLEX*16 result cannot be e in 64 bits, 
0D1 1118 3 is returned as the first argument, ahuk tan laced savenetal " 
OD1 1117; displaced to the second argument, in accordance with the 
0D1 1133 3 Procedure Calling Standard. 
0D1 1119; 
bop] 1131 
00D1 11 : : INPUT PARAMETERS: 
0D1 1123; The two input parameters are G floating-point 
+4 1 : ; values and are call-by-reference. 
OD1 1126: 
0D1 11 ; 3 IMPLICIT INPUTS: 
i i 
0D1 1130 : OUTPUT PARAMETERS: 
+9 1 13 NONE say 
opi 11 : : IMPLICIT OUTPUTS: 
00) 1138 _— 
OD1 1136 : COMPLETION CODES: 
0001 1 ; 3 NONE . 
38 W123 outs ge 0 d i 
got a} eserved Operand exception can occur. 
Be 1186 : 
D1 1145 ;:-- 
BY 1448 
000 D1 114 -ENTRY MTHSGCMPLX “M<> 
50 04 AC 6 D 1149 VL 4CAP), RO- ; RO => 
30 8B BE SOrD OOD? 1148 MOVG  aBCAPS, (RO) DP iael ate 3 bet eee 
08 AO 0C BC 50FD O0DC 114 MOVG  al2(APS, 8(RO) > imag part = 3rd arg 
©. Bet fi ou! 
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;++ 
3; FUNCTIONAL DESCRIPTION: 
Convert REAL*4 to G REAL*8 (rounded). 


CALLING SEQUENCE: 
Conversion.wg.v = MTHS$GDBLE (arg.rf.r) 


INPUT PARAMETERS: 
The one parameter is a F floating-point value 
and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand exception can occur. 
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eh a a ed a 4 a a td 8 a) ts 2 2 > 
a a 8 ss ss ss ss a a ts 
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SOooooooooooooooooooSo 


0000 ENTRY BI WSSDBLE “M<> 
50 04 BC 99FD CVTFG , RO : REAL*4 to G REAL*8 in RO/R1 
04 A RET 
8 
B 
B END 


MTHSCONVER 


Symbol table 


MTHSAIMAG 
MTHSCMPLX 
MT E 


MTHSSNGLG 


PSECT name 


Initialization 


RG 
00000055 RG 


Page faults 


Command processing 


Pass 1 
— table sort 


ass 

Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 
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Allocation PSECT No. Attributes 


00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS L 
QOO000EB ¢ 235.) O1¢ 1.) PIC USR CON REL L 


$eweeeecooceceecocecoccenn$} 


; Performance indicators ; 


a NOEXE NORD NOWRT NOVEC BYTE 


CL 
CL EXE RD NOWRT NOVEC LONG 


CPU Time Elapsed Time 
9 :00:00.07 :00:01.4 
13 :00: 8? p: : ¢- 
1 HS Ss 
19 00:02. :00:06.89 
:00:00.04 :00:00.11 


a : 3 4. f 85 


Limit was 900 pages. 
pages) of virtual memory were used to buffer the intermediate code. 
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{tere were 10 pages of symbol table space allocated to hold 29 non-local yf 0 Local symbols. 


1194 source Lines were read in Pass 1, producing 89 object records in Pass 
0 pages of virtual memory were used to define 0 macros. 


ee eee ee 


! Macro Library statistics ! 


(asesenuenaenes ee ae named 


Macro Library name Macros defined 
_S255SDUA28: (SYSLIBISTARLET.MLB; 2 wmnanreaiay ba 
0 GETS were required to define 0 macros. 

There were no errors, warnings or iSformation messages. 


MACRO/ENABLE=SUPPRESSION/DISABI.E=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHCONVER/OBJ=OBJ$:MTHCONVER MSRC$:MTHCONVER/UPDATE=(ENHS:MTHCONVER) 
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